home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 January / Macworld (1998-01).dmg / Serious Demos / Visual MacStandardBasic Demo / Samples / Spiral Demo / Form1 next >
Text File  |  1997-10-20  |  2KB  |  107 lines
  1. MacStandardBasic Form Version 3.0
  2.  
  3.     FormBegin
  4.       Name=Form1
  5.       Title=Spiral Demo
  6.       Left=101
  7.       Top=69
  8.       Width=417
  9.       Height=416
  10.       Sub Proc.=Form1_Event
  11.       Visible=1
  12.       Style=8
  13.       Font=Geneva
  14.       FontSize=12
  15.       FontStyle=0
  16.       Show Grid=1
  17.       Grid Snap=1
  18.       Grid Size=8
  19.       Min. Width=100
  20.       Max. Width=2000
  21.       Min. Height=100
  22.       Max. Height=2000
  23.       AutoCenter=0
  24.       ForeColor=0 0 0
  25.       BackColor=65535 65535 65535
  26.     FormEnd
  27.  
  28. Start
  29.     Dim A
  30.  
  31.     CreateTheMenus
  32.     Form Form1
  33.     CreateTheSpiral WinNum( Form1 )
  34.  
  35.     A=0
  36.     Do While A=0
  37.     Loop
  38. Finish
  39.  
  40. Sub CreateTheMenus( )
  41.     MenuApple
  42.     MenuAddItem 1, "About Spiral Demo", "", AboutTheApp
  43.     MenuDesk
  44.     MenuAdd 2, "File", None
  45.     MenuAddItem 2, "Page Setup...","", PgSetup
  46.     MenuAddItem 2, "Print...", "P",PrintTheSpiral
  47.     MenuAddItem 2, "Quit", "Q", QuitTheApp
  48.  
  49. EndSub
  50.  
  51. Sub QuitTheApp( )
  52.     End
  53. EndSub
  54.  
  55. Sub AboutTheApp( )
  56.     Dim a
  57.     a = MsgBox ("Spiral Demo"+chr(13)+"ZCurve Software", 0)
  58. EndSub
  59.  
  60. Sub Form1_Event( )
  61.     
  62.  
  63.  
  64. EndSub
  65.  
  66. Sub CreateTheSpiral( GfxDevice)
  67.     Dim f#, g#, h#, pi2#, x1, y1, x2, y2
  68.  
  69.     pi2 = 3.14*2
  70.     h = pi2/31
  71.     SetColor GfxDevice, 7
  72.     For f = 0 to pi2 Step h
  73.         For g = 0 to pi2 step h
  74.             x1 = sin(f)*190.0
  75.                      y1 = cos(f)*190.0
  76.                      x2 = sin(g)*190.0
  77.                      y2 = cos(g)*190.0
  78.                      Line GfxDevice, x1+200, y1+200, x2+200, y2+200
  79.         Next g
  80.        Next f
  81.  
  82. EndSub
  83.  
  84. Sub PgSetup( )
  85.     Dim A
  86.     
  87.     A = PageSetup()
  88.  
  89.  
  90. EndSub
  91.  
  92. Sub PrintTheSpiral( )
  93.     Dim A
  94.     
  95.     A = PrintSetup()
  96.     If A = 1 Then 
  97.         Events 0
  98.         PrintOpen
  99.         CreateTheSpiral PRN
  100.         PrintClose
  101.         Events 1
  102.     EndIf
  103.  
  104.  
  105. EndSub
  106.  
  107.